home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_60_Streaming Music.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  3.1 KB  |  120 lines
  1. global gMusicURL, gTrackName, gCDName, gTrackNumber, gNumSongs, gPlayList, gTrackPlayed, gState, gPlaying, gPreload, gDuration, gLineNum, gChannel
  2.  
  3. on initStreaming
  4.   gPlaying = 0
  5.   put EMPTY into member "t_MessageWindow"
  6.   put EMPTY into member "f_reciveSongList"
  7.   gPreload = 0
  8.   gDuration = 0
  9.   gMusicURL = EMPTY
  10.   gTrackName = EMPTY
  11.   gCDName = EMPTY
  12.   gTrackNumber = 0
  13.   gNumSongs = 0
  14.   gPlayList = []
  15.   gTrackPlayed = 0
  16.   gChannel = 8
  17. end
  18.  
  19. on extractNames
  20.   gNumSongs = member("f_reciveSongList").text.line.count
  21.   if gNumSongs = 1 then
  22.     gTrackNumber = 1
  23.   else
  24.     repeat with i = 1 to gNumSongs
  25.       add(gPlayList, i)
  26.     end repeat
  27.     x = random(gPlayList.count)
  28.     gTrackNumber = getaProp(gPlayList, x)
  29.     gTrackPlayed = gTrackNumber
  30.     gPlayList.deleteOne(gTrackNumber)
  31.   end if
  32.   the itemDelimiter = ","
  33.   gTrackName = member("f_reciveSongList").text.line[gTrackNumber].item[1]
  34.   gCDName = member("f_reciveSongList").text.line[gTrackNumber].item[2]
  35.   gMusicURL = member("f_reciveSongList").text.line[gTrackNumber].item[3]
  36. end
  37.  
  38. on preLoadMusic
  39.   if gPreload = 1 then
  40.     case gState of
  41.       1:
  42.         sprite(35).member = "RedLights"
  43.         put "Loading Song" into member "t_MessageWindow"
  44.         member("MP3").preloadBuffer()
  45.         gState = 2
  46.       2:
  47.         if member("MP3").state = 2 then
  48.           sprite(35).member = "GreenLights"
  49.           put "Track:" && gTrackName into member "t_MessageWindow"
  50.           playMusic()
  51.           gDuration = member("MP3").duration
  52.           gState = 0
  53.         end if
  54.     end case
  55.   end if
  56. end
  57.  
  58. on playMusic
  59.   play frame member("MP3")
  60.   sound(8).fadeIn(2000)
  61.   gPlaying = 1
  62. end
  63.  
  64. on fadeMusic
  65.   if gChannel = 6 then
  66.     if integer(sound(6).currentTime / 1000) = 20 then
  67.       sound(6).fadeOut(3000)
  68.       sound(8).play(member("MP31"))
  69.       sound(8).fadeIn(2000)
  70.       gChannel = 8
  71.     end if
  72.   else
  73.     if gChannel = 8 then
  74.       if integer(sound(8).currentTime / 1000) = 20 then
  75.         sound(8).fadeOut(3000)
  76.         sound(6).play(member("MP32"))
  77.         sound(6).fadeIn(2000)
  78.         gChannel = 6
  79.       end if
  80.     end if
  81.   end if
  82. end
  83.  
  84. on nextSong
  85.   gMusicURL = EMPTY
  86.   sound(8).stop()
  87.   if gNumSongs = 1 then
  88.     gTrackNumber = 1
  89.   else
  90.     if gPlayList.count = 0 then
  91.       repeat with i = 1 to gNumSongs
  92.         add(gPlayList, i)
  93.       end repeat
  94.       x = random(gPlayList.count)
  95.       gTrackNumber = getaProp(gPlayList, x)
  96.       if gTrackNumber = gTrackPlayed then
  97.         gPlayList.deleteOne(gTrackNumber)
  98.         x = random(gPlayList.count)
  99.         gTrackNumber = getaProp(gPlayList, x)
  100.         gPlayList.append(gTrackPlayed)
  101.         gTrackPlayed = gTrackNumber
  102.         gPlayList.deleteOne(gTrackNumber)
  103.       end if
  104.     else
  105.       x = random(gPlayList.count)
  106.       gTrackNumber = getaProp(gPlayList, x)
  107.       gTrackPlayed = gTrackNumber
  108.       gPlayList.deleteOne(gTrackNumber)
  109.     end if
  110.   end if
  111.   the itemDelimiter = ","
  112.   gTrackName = member("f_reciveSongList").text.line[gTrackNumber].item[1]
  113.   gCDName = member("f_reciveSongList").text.line[gTrackNumber].item[2]
  114.   gMusicURL = member("f_reciveSongList").text.line[gTrackNumber].item[3]
  115.   member("MP3").url = gMusicURL
  116.   gPreload = 1
  117.   preLoadMusic()
  118.   gState = 1
  119. end
  120.